home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / reuse.lha / reuse / c / DynArrDrv.c < prev    next >
Text File  |  1992-08-18  |  2KB  |  72 lines
  1. /* $Id: DynArrDrv.c,v 1.4 1992/05/05 13:19:05 grosch rel $ */
  2.  
  3. /* $Log: DynArrDrv.c,v $
  4.  * Revision 1.4  1992/05/05  13:19:05  grosch
  5.  * added rcsid
  6.  *
  7.  * Revision 1.3  1991/11/21  14:28:16  grosch
  8.  * new version of RCS on SPARC
  9.  *
  10.  * Revision 1.2  90/09/20  09:12:21  grosch
  11.  * calmed down lint
  12.  * 
  13.  * Revision 1.1  90/07/04  14:33:50  grosch
  14.  * introduced conditional include
  15.  * 
  16.  * Revision 1.0  88/10/04  11:44:34  grosch
  17.  * Initial revision
  18.  * 
  19.  */
  20.  
  21. /* Ich, Doktor Josef Grosch, Informatiker, Sept. 1987 */
  22.  
  23. static char rcsid [] = "$Id: DynArrDrv.c,v 1.4 1992/05/05 13:19:05 grosch rel $";
  24.  
  25. # include "ratc.h"
  26. # include "DynArray.h"
  27. # include "Memory.h"
  28. # include <stdio.h>
  29.  
  30. static    long        i;
  31. static    cardinal    j;
  32. static    long *        p;
  33. static    unsigned long    s;
  34.  
  35. main ()
  36. {
  37.    InitMemory ();
  38.    s = 10;
  39.  
  40.    MakeArray ((char * *) & p, & s, (long) sizeof (long));
  41.    for (i = 0; i < s; i ++) {
  42.       p [i] = i;
  43.    }
  44.  
  45.    for (j = 1; j <= 13; j ++) {
  46.       ExtendArray ((char * *) & p, & s, (long) sizeof (long));
  47.  
  48.       if (p == (long *) NULL) {
  49.      (void) printf ("Extend Error\n");
  50.       }
  51.  
  52.       for (i = s / 2; i < s; i ++) {
  53.      p [i] = i;
  54.       }
  55.  
  56.       for (i = 0; i < s; i ++) {
  57.      if (p [i] != i) {
  58.         (void) printf ("Error j, i, p [i] =");
  59.         (void) printf ("%5d", j);
  60.         (void) printf ("%5ld", i);
  61.         (void) printf ("%10ld\n", p [i]);
  62.      }
  63.       }
  64.  
  65.       (void) printf ("j, size = ");
  66.       (void) printf ("%5d", j);
  67.       (void) printf ("%10ld", s);
  68.       (void) printf (" ok\n");
  69.    }
  70.    return 0;
  71. }
  72.